(Fset_buffer_multibyte): Error if buffer is multibyte.

diff --git a/src/buffer.c b/src/buffer.c
index 9d5fb51c25875be6b7af6ee90eab012e675fbe2b..0cd234303f68f339457b6d7e39794d20dcd8ba5a 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1735,6 +1735,9 @@ but the contents viewed as characters do change.")
 {
   Lisp_Object tail, markers;
 
+  if (current_buffer->base_buffer)
+    error ("Cannot do `set-buffer-multibyte' on an indirect buffer");
+
   /* Do nothing if nothing actually changes.  */
   if (NILP (flag) == NILP (current_buffer->enable_multibyte_characters))
     return flag;